The Macintosh Demo Applications CD/Apple-MacintoshDemoApplicationsCD-1.0-1992.iso/More Information/ClipMedia/ClipMedia™ Demo/ClipMedia™ Demo.rsrc/BITD_3118

AmigaBASIC Source Code | 1992-08-25 | 1KB | 272 lines

                                           <0xc00,0x00><0xc3b6d4><0x5c,0xfffffffc>4^4<0x7c>_<0x7c>THEN
^_\<0x5c,0x00><0xc3b6e6><0x5c,0xfffffffc>^4:<0x7c>_<0x7c>THEN
:X+<0x5c,0x00><0xc3b6f8><0x5c,0xfffffffc>4^4<0x7c>_<0x7c><0x7d>
=
4^+<0x7e>3<0xc3b70c>4334<0x5c,0xfffffffc>^4^<0x7c>^<0x7c>THEN
<0xc3b71b><0x5c,0xfffffffc>9+334<0x7e>3^5^<0x7c>
3X\<0x7e>3<0xc3b76a>^343<0xfa,0xfffffffc>__^:<0x7c>BASETHEN
2<0xfa,0x00>3+4434394<0xfa,0x01>^5^<0x7c>VASC<0x7c>NOT
3<0xfa,0x00>3\33^3X34<0xfa,0x01>_^_<0x7c>43<0x7c><0x7c>=
<0x7e><0xfa,0x00>33<0xfa,0x01><0x7d>_:33<0x7e><0x7c>/
<0x7d><0xfa,0x00>W434<0xfa,0x01>
<0xfa,0x01>_varfffffc3a<0x7d>3<0x7e><0x7c>OR
<0xc3b7d1><0xfa,0xfffffffc>3^^49X:3^5^_Y:X<0xfa,0xfffffffa>
:<0x7e>3<0xc3b7e9>:X3<0x7c><0x7c>\
<0x7e>

IMP<0x62><0xfa,0x00><0x7c><0x7c>MOD
<0xc3b7fc>IMPV334^4:X:X:_^<0xfa,0xfffffffc>&H5e3bX^4^4^443<0x7c><0x7c>\
0<0xfa,0x00>3X3:W4^4^X;X;X_^<0x7e>_<0xc3b832>^5^Y:_4^4^4]]<0xfa,0xfffffffc><0xfa,0xfffffffa>1IMP<0xfa,0xfffffffa>343^34^4^4^_^_^;<0x7d>                                                           ^_^4^^4^44943                                                                                                                                                                                                                                                            <0xc00,0x00>0V\33]43^4^4^4^5^5^<0x7d>_1X__X;^Y:X:X:X3^33<0x7c><0x7c><0x7d>
var2bfa<0x7e>31315043^4^4^_^_^Y<0x7d>_
:<0xc3b918>_^Y:^4^4^34]4343<0x7c><0x7d>

<0xfa,0x00>3<0xc3b930>4]434^4^4^:Y:X;_^<0x7e>_<0xc3b944>Y^;^X;X:X:X434<0x7e>3<0xc3b955><0x7c><0x7c>

+<0x7c>3&H3433^3^4X:X^4_^<0x7d>_<0xc3b96d>;^__X;^X:X:X:3^3^<0x7e>3

V<0x7e>3<0xc3b988>43]434^4:X:<0xc3b994>_^Y:_X<0x7d>_15198_4^;X:X49X34<0x7e>3IMP
BASE3523^49X:X:X:_^__;<0x7d>_<0xc3b9c9>^                                                                                               X:X:X:W43:<0x7e>3<0x7c>
AS3"4]43X:X4^4^Y:Y^__^__X;^_X:X:X:34:W4  <0x7c>
ASC<0x7e>303343^3:X:X^:^_^;Y^<0x7d>_24372^;X^4^4^343W<0x7e>3labelfffffc00<0x31,0x00>               43]43^4X:X:X;X_^<0x7d>_5;X_:_X:^4^4X34]43933<0x7c>
ASC<0x7c>3<0xc3bafe>43^                                                                                              43<0x31,0x00><0x31,0x01>labelfffff9faAPPEND<0x31,0x00>3X:X:3^3var3334<0x7e>3labelfffffc00<0x31,0x00>334]43:X:3<0x31,0x01>\+\+\                                           \+\<0x7c>+<0xc3bb97><0xf5,0xfffffffc>4^43449W<0x7e>3labelfffffc00ASC<0x7c>3<0xc3bbaa>43^3X:VASC^
X:W:W4<0x7d>3labelfffffc00APPEND3<0xc3bbc7>43]43:X3<0xf5,0xfffffffc>XOR
<0x7e>
2513^43^433:33<0xf5,0x00>
<0xf5,0x01>3<0xc3bbe9>43^43^VV^
:X349X<0x7e>3<0xc3bc00>ASCIMP

<0xf5,0xfffffffc>33^4^VV^
<0xc3bc14><0xf5,0xfffffffc>4^4:W4<0x7e>3varfffffbf5<0x7e>
varfffff856<0x7e>3<0xc3bc29>43^34^<0xf5,0xfffffffc><0x7e>
XOR
<0xc3bc36><0xf5,0xfffffffc>:X3:W4943<0xf5,0xfffffffa>

<0xf5,0xfffffffa>3<0xc3bc49>]43^4X<0xf5,0xfffffffc>^
<0xc3bc54><0xf5,0xfffffffc>:X:X3:3W<0xf5,0xfffffffa><0x7c>
<0xc3bc63>\<0xf5,0xfffffffc>343^43^V<0xf5,0xfffffffa>
<0xc3bc72>IMP<0xf5,0xfffffffc>^4494W4OUTPUT<0xf5,0xfffffffa>labelfffff8563<0xc3bc85>                                                   :X:\ASCAND
<0xc3bcb9>+<0x32,0xfffffffc>X:X3^3\TAB
<0xc3bcc7>SPC33^3X:3<0x32,0xfffffffc>OR
<0xc3bcd5>ASC<0x32,0xfffffffc>X:X94\<0x32,0xfffffffa>
<0xc3bce2>                                                   3:X4^3ASC+EQV
<0xc3bd1c>CHAIN34^43^\<0x7f,0xfffffffc>
MOD
<0xc3bd2b>\V^43^4^3ASC\MOD
<0xc3bd39>CHAIN3:X:X3V<0x7f,0xfffffffc>XOR
<0xc3bd47>IMPV+4^4^43<0x7f,0xfffffffc><0x7f,0xfffffffa><0xc3bd55>IMPVASC3_4^4+<0x7f,0xfffffffc>/
<0xc3bd63>+V<0x7f,0xfffffffc>^4^;\<0x7f,0xfffffffa><0x7f,0xfffffffa>\3_<0xc3bd74>:X33VIMP+
5\SPC3^Y^;3SPCSTEP\3Y^_                                                                                                                                                                                                                                                          VIMP'
<0xc3bdc6>IMP<0xf6,0xfffffffc><0xf6,0xfffffffa><0xf6,0xfffffffa>VUSR<0x62>
labelfffff5f7VASC<0xf6,0x00>V\+/